home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.27 / wbarg / unittester.p < prev    next >
Text File  |  1995-04-23  |  686b  |  33 lines
  1. { Programm zu testen der Unit WBARG
  2.   Öffnet ein Fenster, auf dem versucht wird das mit Shift aufgerufene
  3.   File als ASCII text auszugeben. Das File sollte möglichst auch ein
  4.   ASCII-Text sein !                                                   }
  5.  
  6. PROGRAM Wbargtester;
  7.  
  8. FROM mytools USES wbarg;
  9.  
  10.  VAR i:INTEGER;
  11.      f:TEXT;
  12.      s:STRING;
  13.  
  14.  BEGIN
  15.  IF FromWB THEN
  16.  BEGIN
  17.   Reset(input,'CON:0/0/640/256/UNIT_WBArg_tester');
  18.   output:=input;
  19.  
  20.   reset(f,Getwbarg(2));   {2. Argument holen (1.Argument ist Filename selbst)}
  21.   WHILE NOT eof(f) DO
  22.   BEGIN
  23.   read(f,s);
  24.   writeln(s);
  25.   END;
  26.   close(f);
  27.  
  28.   writeln('< Return >');
  29.   readln(i);
  30.   Close(Input);  { Fenster schließen }
  31.  END;
  32.  END.
  33.